home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / raystrom_v1.2 / examples / arexx / bump.ray < prev    next >
Text File  |  1986-11-26  |  907b  |  53 lines
  1. /***************
  2.  * NAME:          bump.ray
  3.  * DESCRIPTION:   Test of bump texture
  4.  * AUTHOR:        Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.    address COMMAND 'run >NIL: <NIL: /RayStorm'
  13.    address COMMAND WaitForPort RAYSTORM
  14. END  
  15.  
  16. address RAYSTORM
  17.  
  18. 'TEXTUREPATH /textures'
  19.  
  20. 'SETSCREEN 100 100'
  21. 'SETCAMERA <5,10,-25> <0,0,0> <0,1,0> 20 20'
  22. 'SETWORLD [0,0,0] [20,20,20]'
  23. 'POINTLIGHT <20,20,-40> SHADOW'
  24.  
  25. 'NEWSURFACE MAP'
  26. 'DIFFUSE [200,100,20]'
  27. 'SPECULAR [0,0,0]'
  28. 'IMTEXTURE bump.itx <0,0,0> <0,0,0> <.5,.5,.5> 1 1 1'
  29.  
  30. 'SPHERE MAP <0,0,0> 2'
  31.  
  32. 'NEWSURFACE MAP1'
  33. 'DIFFUSE [20,100,200]'
  34. 'SPECULAR [0,0,0]'
  35. 'REFLECT [100,100,100]'
  36. 'IMTEXTURE bump.itx <0,0,0> <0,0,0> <2,2,2> 1 1 1'
  37.  
  38. 'PLANE MAP1 <0,-2,0> <0,1,0>'
  39.  
  40. 'STARTRENDER QUICK'
  41.  
  42. 'SAVEPIC bump.iff'
  43.  
  44. 'CLEANUP'
  45.  
  46. exit 0
  47.  
  48. error:
  49. say "Error" rc "in line" sigl ":"
  50. GETERRORSTR rc
  51. say result
  52. exit 0
  53.